home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / HUMANFLY.DSK / RUN GAME.B2.bas < prev    next >
BASIC Source File  |  2014-09-09  |  465b  |  6 lines
  1. 5  PRINT "<CTRL-D>BLOAD SOUND": PRINT "<CTRL-D>BLOAD SPLAT.B"
  2. 10  PRINT "<CTRL-D>BLOAD LINE1": PRINT "<CTRL-D>BLOADLINE2,A16384"
  3. 20  POKE  -16304,0: POKE  -16297,0: POKE  -16302,0: POKE  -16300,0: POKE 769,5
  4. 30  POKE  -16300,0: FOR P = 1 TO 28: GOSUB 40: NEXT : POKE  -16299,0: FOR P = 1 TO 28: GOSUB 40: NEXT : GOTO 30
  5. 40  POKE 826,P: CALL 768: CALL 768: ON  PEEK( -16384) >127 GOTO 50: RETURN 
  6. 50  POKE  -16300,0: POKE  -16368,0: PRINT : PRINT "<CTRL-D>RUNGAME.B"